today <- Sys.Date()
yesterday <- today -1
library("BOE")
sumario_hoy <- try(retrieve_sumario(today, journal = "BORME"), silent = TRUE)
d <- today
if (is(sumario_hoy, "try-error")) {
    d <- yesterday
   sumario_hoy <- retrieve_sumario(yesterday, journal = "BORME")
}

Resumen gráfico

Esta página web contine el último sumario del BORME publicado el 2020-10-22 con 78 publicaciones.

library("dplyr")
library("forcats")
library("ggalluvial")
sumario_hoy %>% 
    group_by(section_number, emisor) %>% 
    count(name = "Freq", sort = TRUE) %>% 
    ungroup() %>% 
    mutate(section_number = gsub("SECCIÓN .*\\. ", "", section_number),
           emisor = tolower(emisor)) %>% 
    arrange(section_number, emisor, Freq) %>% 
    mutate(emisor = as.factor(emisor),
           section_number = as.factor(section_number),
           emisor = fct_inorder(emisor),
           section_number = fct_inorder(section_number)) %>% 
    ggplot(aes(y = Freq, axis1 = section_number, axis2 = emisor)) +
    geom_alluvium(aes(fill = as.factor(emisor))) +
    geom_stratum(fill = "white", color = "darkgrey") +
    geom_text(stat = "stratum", aes(label = after_stat(stratum))) +
    guides(fill = FALSE) +
    scale_x_discrete(limits = c("section_number", "emisor")) +
    theme_void() +
    labs(caption = "Fuente: Agencia Estatal del Boletín Oficial del Estado")

Tabla

Aquí está la tabla completa con links